home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / HAWKEE20.ZIP / PRO20.ZIP / ALIASES.INI next >
Encoding:
INI File  |  1997-01-08  |  18.3 KB  |  384 lines
  1. [Aliases]
  2. n0=op /mode # +ooo $$1 $2 $3
  3. n1=dop /mode # -ooo $$1 $2 $3
  4. n2=j /join #$$1
  5. n3=p /part #
  6. n4=n /names #$$1
  7. n5=w /whois $$1
  8. n6=k /kick # $$1
  9. n7=q /query $$1
  10. n8=hop /part # | /join #$$1
  11. n9=send /dcc send $1 $2
  12. n10=chat /dcc chat $1
  13. n11=ping /ctcp $$1 ping
  14. n12=away {
  15. n13=  if $1 != $null { away *1 | .timer200 off | echo 12 Auto Away deactivated, manual Away set:10 *1 }
  16. n14=  else { .timer200 0 1 if ( $!idle = %idle ) /idle | echo 12 Away Deactivated:2 Auto Away reactivated | away }
  17. n15=}
  18. n16=F1 {
  19. n17=  if $chatme != yes {
  20. n18=    if %connect == $null || %email == $null || %password == $null {
  21. n19=      echo 4 -a Error in setup
  22. n20=    echo 2 -a Please press12 F52 to correct this error }
  23. n21=    else {
  24. n22=      echo 2 -a Connecting to mail server, Please wait
  25. n23=      echo 2 -a Checking mail for:12 %email
  26. n24=      raw -q privmsg $me :DCC CHAT CHAT %connect 110 $+ 
  27. n25=      .enable #check 
  28. n26=      .timer300 60 60 invalid
  29. n27=    }
  30. n28=  }
  31. n29=  else {
  32. n30=    .enable #getmail
  33. n31=    msg = $+ $me retr %number
  34. n32=    inc %number
  35. n33=  }
  36. n34=}
  37. n35=F2 {
  38. n36=  if $chatme != yes {
  39. n37=    if %connect == $null || %email == $null || %password == $null {
  40. n38=      echo 4 -a Error in setup
  41. n39=    echo 2 -a Please press12 F52 to correct this error }
  42. n40=    else {
  43. n41=      set %rcpt $$?="Who would you like to email?"
  44. n42=      set %subject $?="Please enter E-Mail Subject"
  45. n43=      set %message $$?="You may now enter your email message"
  46. n44=      :loop
  47. n45=      if $len(%message) >= 255 { set %message $$?="There is a 256 char limit in mIRC, reenter:" }
  48. n46=      if $len(%message) >= 255 goto loop  
  49. n47=      raw -q privmsg $me :DCC CHAT CHAT %connect 25 $+ 
  50. n48=      .timer300 60 60 invalid
  51. n49=      .enable #mail
  52. n50=    }
  53. n51=  }
  54. n52=  else {
  55. n53=    set %delete [ [ %number ] - 1 ]
  56. n54=    msg = $+ $me dele %delete
  57. n55=    echo 2 -a Message12 %delete 2has been deleted
  58. n56=    unset %delete
  59. n57=  }
  60. n58=}
  61. n59=F3 {
  62. n60=  if $chatme != yes { setup }
  63. n61=  else {
  64. n62=    close -m Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server
  65. n63=    close -c $me
  66. n64=  }
  67. n65=}
  68. n66=F4 general
  69. n67=F5 {
  70. n68=  .timer300 off
  71. n69=  set %email $?="Please enter your email address"
  72. n70=  set %pop $$?="Please enter your mail server's POP domain" 
  73. n71=  set %password $$?="Please enter you E-Mail password"
  74. n72=  .enable #checkdomain
  75. n73=  .timer300 60 60 invalid
  76. n74=  .dns %pop
  77. n75=}
  78. n76=F6 set %sound $file="Hawkee JukeBox, pick one:" [ $mircdir $+ wavs\*.wav ] | if %sound != $null { splay %sound | .timer204 10 1 /title2 | .timer205 1 10 .timer203 0 1 /title | .timer203 off | echo 2 Playing Wav sound:12  $+ %sound $+  }
  79. n77=F7 set %sound $file="Hawkee JukeBox, pick one" [ $mircdir $+ midi\*.mid ] | if %sound != $null { splay %sound | .timer204 10 1 /title2 | .timer205 1 10 .timer203 0 1 /title | .timer203 off | echo 2 Playing Midi song:12  $+ %sound $+  }
  80. n78=F8 splay %sound | .timer204 10 1 /title2 | .timer205 1 10 .timer203 0 1 /title | .timer203 off
  81. n79=F9 splay stop | .timer204 off | .timer203 0 1 /title
  82. n80=who who *1 | .enable #who 
  83. n81=chatme {
  84. n82=  set %loop 1
  85. n83=  :loop
  86. n84=  if %loop > $chat(0) goto end
  87. n85=  if $chat(%loop) == $me { return yes | goto end }
  88. n86=  inc %loop
  89. n87=  goto loop
  90. n88=  :end
  91. n89=}
  92. n90=kban {
  93. n91=  .ruser kick *!*@ $+ $$2 
  94. n92=  mode $$1 +b *!*@ $+ $site
  95. n93=  if $$4 == 1 kick $$1 $$3 Channel Flood detected, 30 second ban 
  96. n94=  if $$4 == 2 kick $$1 $$3 Swearing is prohibited in this channel, 30 second ban 
  97. n95=  if $$4 == 3 kick $$1 $$3 Nick Flood detected, 30 second ban
  98. n96=  if $$4 == 4 kick $$1 $$3 Message exceeds 400 characters, 30 second ban
  99. n97=  .timer 1 30 mode $chan -b *!*@ $+ $$2
  100. n98=}
  101. n99=gets {
  102. n100=  set %result 0
  103. n101=  set %loop 1
  104. n102=  :loop
  105. n103=  if %loop > $send(0) goto end
  106. n104=  if $send(%loop) == $$1 inc %result
  107. n105=  inc %loop
  108. n106=  goto loop
  109. n107=  :end
  110. n108=  return %result
  111. n109=}
  112. n110=in {
  113. n111=  set %loop 1
  114. n112=  set %number 0
  115. n113=  :loop
  116. n114=  if %loop > $ial(*,0) goto end
  117. n115=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) { inc %number
  118. n116=  set % $+ $ial(*,%loop).host [ % [ $+ [ $ial(*,%loop).host ] ] ] $+ $ial(*,%loop).nick $+ , $+ $chr(160) }
  119. n117=  inc %loop
  120. n118=  goto loop
  121. n119=  :end
  122. n120=  set %nicks % [ $+ [ $$1 ] ]
  123. n121=  set %letters [ [ [ $len(%nicks) - 2 ] ] ]
  124. n122=  set % $+ $$1 $left(%letters,%nicks) $+ 
  125. n123=  unset %nicks | unset %letters
  126. n124=  return %number
  127. n125=}
  128. n126=inchan {
  129. n127=  set %loop 1
  130. n128=  set %number 0
  131. n129=  :loop
  132. n130=  if %loop > $ial(*,0) goto end
  133. n131=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) inc %number
  134. n132=  inc %loop
  135. n133=  goto loop
  136. n134=  :end
  137. n135=  return %number
  138. n136=}
  139. n137=color {
  140. n138=  set %phrase *1
  141. n139=  set %loop 1
  142. n140=  set %newphrase 0
  143. n141=  :loop
  144. n142=  if %loop > $len(%phrase) goto end
  145. n143=  if $mid(%loop,1,%phrase) isin 0123456789 set %mid  $+ $r(10,15) $+ $mid(%loop,1,%phrase)
  146. n144=  else  set %mid  $+ $r(1,15) $+ $mid(%loop,1,%phrase)
  147. n145=  if $asc($mid(%loop,1,%phrase)) == 32 set %newphrase %newphrase $+ $chr(160)
  148. n146=  else set %newphrase %newphrase $+ %mid
  149. n147=  inc %loop
  150. n148=  goto loop
  151. n149=  :end
  152. n150=  say %newphrase
  153. n151=}
  154. n152=awaylist {
  155. n153=  echo 12 $$1 2Hawkee12 Scanning for users who are Away in 2 $+ $$1 $+ 12
  156. n154=  set %chan $$1 |  .enable #away |  .raw who $$1 |  set %away 0
  157. n155=}
  158. n156=ircop {
  159. n157=  set %count 0
  160. n158=  set %loop 1
  161. n159=  :count
  162. n160=  if ( $nick(0,$$1) < %loop ) goto next
  163. n161=  if ( $level($address($nick(%loop,$$1),1)) == ircop ) inc %count 1
  164. n162=  inc %loop
  165. n163=  goto count
  166. n164=  :next
  167. n165=  if ( %count == 0 ) goto none
  168. n166=  echo 12 $$1 Listing IRC operators for channel 2 $+ $$1 $+ 12
  169. n167=  set %loop 1
  170. n168=  :scan
  171. n169=  if ( $nick(0,$$1) < %loop ) goto end
  172. n170=  if ( $level($address($nick(%loop,$$1),1)) == ircop ) echo 2 IRCop: 12 $nick(%loop,$$1) 
  173. n171=  inc %loop
  174. n172=  goto scan
  175. n173=  :end
  176. n174=  echo 12 $$1 2Hawkee12 List of2 %count 12IRC operator(s) complete
  177. n175=  halt
  178. n176=  :none
  179. n177=  echo 12 $$1 2Hawkee12 IRC operators for $$1 $+ : 2None
  180. n178=}
  181. n179=invalid {
  182. n180=  close -c $me
  183. n181=  .timer300 off
  184. n182=  echo 2 -
  185. n183=  echo 4 Connection to mail server timed out
  186. n184=  echo 12 Please try one of the following to obtain a connection:
  187. n185=  echo 12 1:2 Try entering the Mail prefix ex: 10mail2.geocities.com 
  188. n186=  echo 12 2:2 Make sure you have entered only the domain
  189. n187=  echo 12 3:2 Be sure you are attempting to connect to a POP3 account
  190. n188=  echo 12 4:2 Attempt connection later
  191. n189=  echo 10 You may press2 F510 to re-enter your POP server address
  192. n190=  echo 2 -
  193. n191=  unset %send
  194. n192=  .disable #checkdomain
  195. n193=  .disable #check
  196. n194=  .disable #mail
  197. n195=}
  198. n196=init {
  199. n197=  :back
  200. n198=  if %email == $null { set %email $?="Please enter your email address"
  201. n199=    set %pop $$?="Please enter your mail server's POP domain" 
  202. n200=    set %password $?="Enter password used to check mail"
  203. n201=    if %email == $null || %password == $null || %pop == $null goto back
  204. n202=    .enable #checkdomain
  205. n203=    .timer300 30 30 invalid
  206. n204=    .timer 1 10 .dns %pop
  207. n205=  }
  208. n206=  echo 12 $chr(160) 
  209. n207=  echo 12  $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 2H14a10w14k10e2e Pro 4v2.0 12 $chr(160) $chr(160) $+ $chr(160) $chr(160) $chr(160) $chr(160) 
  210. n208=  echo 12  $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 2Initializing... 12 $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 
  211. n209=  echo 12 $chr(160) 
  212. n210=  titlebar -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160)  Pro v2.0  
  213. n211=  titlebar $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160)  Pro v2.0  
  214. n212=  titlebar $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Pro v2.0  
  215. n213=  titlebar $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160)  Pro v2.0  
  216. n214=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Pro v2.0  
  217. n215=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Pro v2.0  
  218. n216=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Pro v2.0  
  219. n217=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Pro v2.0  
  220. n218=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Pro v2.0  
  221. n219=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) $chr(160) $chr(160) Pro v2.0  
  222. n220=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- $chr(160) Pro v2.0  
  223. n221=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  224. n222=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  225. n223=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  226. n224=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  227. n225=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  228. n226=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  229. n227=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  230. n228=  titlebar $chr(160) $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  231. n229=  titlebar $chr(160) $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  232. n230=  titlebar $chr(160) $chr(160) -=Hawkee=- Pro v2.0  
  233. n231=  titlebar $chr(160) -=Hawkee=- Pro v2.0  
  234. n232=  titlebar -=Hawkee=- Pro v2.0  
  235. n233=  echo 12 2Hawkee12 Pro v2.0 for mIRC v4.7 copyright⌐ 1996
  236. n234=  echo 12 2Hawkee12 E-mail: 10Hawkee@hawkee.com 
  237. n235=  echo 12 2Hawkee12 Homepage: 10http://www.hawkee.com
  238. n236=  .pdcc 50000
  239. n237=  .flood on
  240. n238=  unset %^*
  241. n239=  unset %send
  242. n240=  .rlevel ircop
  243. n241=  .rlevel 15
  244. n242=  .auser 15 $me 
  245. n243=  unset %advertise*
  246. n244=  set %currentad 100
  247. n245=  .timer200 0 1 if ( $!idle = %idle ) /idle 
  248. n246=  .timer203 0 1 /title
  249. n247=  echo 12 Auto-Away initialized to 10 $duration(%idle)
  250. n248=  echo 12 Giving 2 $+ $me $+ 12 master level
  251. n249=  echo 12 Initialization complete...
  252. n250=}
  253. n251=fservip {
  254. n252=  set %loop 1
  255. n253=  :loop
  256. n254=  if %loop > $fserv(0) goto end
  257. n255=  if $fserv(%loop) == $$1 goto end
  258. n256=  inc %loop
  259. n257=  goto loop
  260. n258=  :end
  261. n259=  return $fserv(%loop).ip
  262. n260=}
  263. n261=opin {
  264. n262=  set %loop 1
  265. n263=  :loop
  266. n264=  if %loop > $opnick(0,$$1) goto end
  267. n265=  if $opnick(%loop,$$1) == $me { return true | halt }
  268. n266=  inc %loop
  269. n267=  goto loop
  270. n268=  :end
  271. n269=  return false
  272. n270=}
  273. n271=title  titlebar -=Hawkee=- Pro v2.0   $+ Idle time: $duration($idle) $+ 
  274. n272=title2  titlebar -=Hawkee=- Pro v2.0   $+ Idle time: $duration($idle) $+  Playing Sound:  $+ $nopath(%sound) $+ 
  275. n273=idle {
  276. n274=  away Idle away: $duration(%idle) of no action 
  277. n275=  echo 12 -a 2 $+ $me $+ 12 Auto-Away activated, no action for2 $duration(%idle)
  278. n276=  if $channel(0) > 0 ame has been marked as away for an idle time of $duration(%idle)  $+ Hawkee Pro v2.0 $+  
  279. n277=  .timer200 off 
  280. n278=  set %gone %idle
  281. n279=  .timer201 0 1 if ( $!idle < 10 ) /idle2
  282. n280=  .timer202 0 1 inc %gone 
  283. n281=}
  284. n282=idle2 {
  285. n283=  echo 12 -a Welcome back2 $me 122 $+ Away for $duration(%gone) $+ 12 
  286. n284=  away
  287. n285=  if $channel(0) > 0 ame has shown movement, Auto-Away deactivated Total time gone: $duration(%gone)  $+ Hawkee Pro v2.0 $+  
  288. n286=  .timer201 off
  289. n287=  .timer202 off
  290. n288=  .timer200 0 1 if ( $!idle == %idle ) /idle
  291. n289=}
  292. n290=unleech {
  293. n291=  if (% [ $+ [ $$1 [ $+ leech ] ] ] == $null) { echo 12 User2 $$1 12 does not have leech access } 
  294. n292=  else { /unset % [ $+ [ $$1 [ $+ leech ] ] ] |  /notice $$1 You have lost your leech access on %command }
  295. n293=}
  296. n294=unban { 
  297. n295=  if (% [ $+ [ $$1 [ $+ ban ] ] ] == $null) { echo 12 User2 $$1 12is not banned from your fserve } 
  298. n296=  else { .ruser banned $$1 $+ ! | /unset % [ $+ [ $$1 [ $+ ban ] ] ] |  notice $$1 You have been unbanned from %command }
  299. n297=}
  300. n298=info { echo 12 User info for  2 $+ $$1 $+  
  301. n299=  if ( % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ] == $null ) { echo 12 Credits: 2None }
  302. n300=  else { echo 12 Credits:2 % [ $+ [ ( [ $+ [ $$1 [ $+ [ ) ] ] ] ] ] ]  }
  303. n301=  if ( % [ $+ [ $$1 [ $+ ban ] ] ] == $null ) { echo 12 Ban status: 2Not banned } 
  304. n302=  else { echo 12 Ban status:2 Banned: % [ $+ [ $$1 [ $+ ban ] ] ] } 
  305. n303=  if ( % [ $+ [ $$1 [ $+ leech ] ] ] == $null) { echo 12 Leech access:2 Off }
  306. n304=  else { echo 12 Leech access:2 On }
  307. n305=  if % [ $+ [ $$1 [ $+ [ sent ] ] ] ] == $null echo 12 Files sent from2 $$1 1002
  308. n306=  else  echo 12 Files sent from2 $$1 10 $+ % [ $+ [ $$1 [ $+ [ sent ] ] ] ] $+ 2
  309. n307=  if % [ $+ [ $$1 [ $+ [ download ] ] ] ] == $null echo 12 Files sent to2 $$1 1002
  310. n308=  else echo 12 Files sent to2 $$1 10 $+ % [ $+ [ $$1 [ $+ [ download ] ] ] ] $+ 2
  311. n309=}
  312. n310=email {
  313. n311=  echo 2 -a -=-=-=-=-=-=-=Current setup for 10Hawkee2 Pro v2.0=-=-=-=-=-=-
  314. n312=  echo 2 -a E-Mail address:12 %email
  315. n313=  echo 2 -a Pop server address:12 %pop
  316. n314=  echo 2 -a E-Mail password for Pop access:12 %password
  317. n315=  echo 2 -a Press12 F12 to check mail and12 F22 to send mail
  318. n316=  echo 2 -a -=-=-=-=-=-=-=-=-=-=-=-=-=12End of Setup2=-=-=-=-=-=-=-=-=-=-=-=-=-
  319. n317=}
  320. n318=general {
  321. n319=  echo 2 -a -=-=-=-=-=-=-=Current setup for 10Hawkee2 Pro v2.0=-=-=-=-=-=-
  322. n320=  echo 2 -a Max clones allowed per channel-->12 %allowed
  323. n321=  echo 2 -a Swear Protection-->12 %swear
  324. n322=  echo 2 -a Channel Protection-->12 %channel 
  325. n323=  echo 2 -a Auto Away activated after-->12 $duration(%idle)
  326. n324=  echo 2 -a Max CTCP's before flood protection activated-->12 %flood
  327. n325=  echo 2 -a Kick after a channel flood of12 %chanflood 2messages 
  328. n326=  echo 2 -a Kick after a nick flood of12 %nickflood 2nick changes 
  329. n327=  echo 2  -a -=-=-=-=-=-=-=-=-=-=-=-=-=12End of Setup2=-=-=-=-=-=-=-=-=-=-=-=-=-
  330. n328=}
  331. n329=setup { 
  332. n330=  echo 2 -a -=-=-=-=-=-=-=Current setup for10 $me $+ 's2 fserve=-=-=-=-=-=-=-
  333. n331=  echo 2  -a Access command for fserve-->12 %command 2 Fserve is12 %active
  334. n332=  echo 2  -a Fserve directory-->12 %directory 
  335. n333=  echo 2  -a Ratio-->12 1: $+ [ %ratio ] $chr(160) $chr(160) 2Ratio is12 %ratiostatus
  336. n334=  echo 2 -a IRCop Blocking is12 %block
  337. n335=  echo 2 -a Gambling is12 %gamble $chr(160) $chr(160) 2Auto Advertising is12 %joinad
  338. n336=  echo 2 -a Max sends to each user:12 %maxgets $chr(160) 2Max gets at one time:12 %maxsends
  339. n337=  echo 2  -a Welcome file for fserve-->12 %welcome 
  340. n338=  echo 2  -a Starting credits for new users-->12 %start
  341. n339=  echo 2  -a Horse names for the races-->12 %horse1 $+ ,10 %horse2 $+ ,2 and14 %horse3
  342. n340=  echo 2  -a -=-=-=-=-=-=-=-=-=-=-=-=-=10End of Setup2=-=-=-=-=-=-=-=-=-=-=-=-=-
  343. n341=}
  344. n342=chan {
  345. n343=  set %loop 1
  346. n344=  set %count 0
  347. n345=  :count
  348. n346=  if ( $nick(0,$$1) < %loop ) goto next
  349. n347=  if ( $level($address($nick(%loop,$$1),1)) == ircop ) inc %count 1
  350. n348=  inc %loop
  351. n349=  goto count
  352. n350=  :next
  353. n351=  echo 2 -a 12Hawkee2 $$1 IRCops:12 %count 
  354. n352=  echo 2 -a 12Hawkee2 $$1 Ops:12 $opnick(0,$$1)
  355. n353=  echo 2 -a 12Hawkee2 $$1 Non-Ops:12 $nopnick(0,$$1)
  356. n354=  echo 2 -a 12Hawkee2 $$1 Total Users:12 $nick(0,$$1)
  357. n355=  echo 2 -a 12Hawkee2 end of 12 $+ $$1 $+ 2 Status
  358. n356=}
  359. n357=clones {
  360. n358=  echo 2 12Hawkee2 Searching for clones in 12 $+ $$1 $+ 2
  361. n359=  set %loops 1
  362. n360=  set %count 1
  363. n361=  :loop
  364. n362=  if %loops > $nick(%loops,$$1) { goto finish | set %loops 1 }
  365. n363=  if $ial($address($nick(%loops,$$1),2),0) > 1 {
  366. n364=    if $inchan($remove($address($nick(%loops,$$1),2),*!*@),$$1) == $ial($address($nick(%loops,$$1),2),0) {
  367. n365=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $null { set % $+ clone $+  $remove($address($nick(%loops,$$1),2),*!*@)  $+ $nick(%loops,$$1) | set %done $+ $address($nick(%loops,$$1),2) 0  }
  368. n366=      else set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@)  [ % [ $+ [ clone [ $+  [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] ]  $+ , $+ $chr(160) $+ $nick(%loops,$$1) 
  369. n367=      inc %done $+ $address($nick(%loops,$$1),2) 
  370. n368=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $ial($address($nick(%loops,$$1),2),0) {
  371. n369=        echo 2 Clone set 10 $+ %count $+ :12 % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] $+ 
  372. n370=        echo 2 Cloning Address: 14 $+ $remove($address($nick(%loops,$$1),2),*!*@) $+ 2
  373. n371=      inc %count }
  374. n372=    }
  375. n373=  }
  376. n374=  inc %loops | goto loop
  377. n375=  :finish
  378. n376=  unset %clone*
  379. n377=  unset %done*
  380. n378=  set %count [ [ %count ] - 1 ]
  381. n379=  if %count != $null echo 2 12Hawkee2 Total:12 %count 2clone set(s) in 12 $+ $$1 $+ 2
  382. n380=  unset %count
  383. n381=}
  384.